home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / P-Z / Zapper(Xpress) 2.0a.cpt / Zapper (version 2.0A).rsrc / STR#_2989.txt < prev    next >
Text File  |  1990-12-21  |  460b  |  12 lines
  1.  {xpdidch{currentfont [1 0 0 -1 0 0] makefont
  2.  xpfnam exch dup maxlength dict begin xpcf currentdict end definefont pop}
  3.  {xppln{FontDirectory xpplnfnam known{/xpfnam xpplnfnam def}if}if}ifelse
  4.  }ifelse}if xpfnam findfont
  5.  
  6. /xpdefont{
  7.  /xptrapamt xdf /xpfnam xdf dup /xppln xdf{/xpplnfnam xdf}if
  8.  dup /xpbit xdf{/xpbitfnam xdf}if /xpdidch xdf/xpuseangl xdf
  9.  FontDirectory xpfnam known not
  10.  {xpbit{FontDirectory xpbitfnam known}{F}ifelse{/xpfnam xpbitfnam def}
  11.  
  12.